I 



SET T fT 



1 * general automation* inc. all rights reserved 
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54 * * OThpR FORTRAN PHASES - mONE 

55 » 

_56 AR<; ^p F C^fU=~ 

57 * 

1 SB * PR* SYSTEM EQUATES 

[ 59 NORML EO(j /7( NORMAL EMT 

i» 



SEITE 



^ 



6 


ERROR 


EOU 




/70 




ERROR FXIT 


61 


LIO 


E°U 




/85 




iOcS p-riiT^Y 


62 


<* 












-*9-- MEMRY 


EOU 




/irrr <=*>&= 


MA^imUm CORE StZf 


64 


PHSI7 


EOU 




4*320 




MAXIMUM PHASE SIZE 


65 


OVERL 


EOIJ 




MLMRY-PHSIZ 


PHASES 2-29 START 


66 


FCOM 


EOU 




OVERl-22 




FORTRAN COMM, TARLF 


67 


PHMTB 


E<">U 




FCOM-56 




PHASE TA^LE 


68 


KOLRX 


EOU 




PHNTB-5 




INTERPHASE CALl' 


69 


*C0QF 


EOU 




FCOM 




RECOVERY CODE 


70 

71 

72 


EHIMD 


E«U 




FCOh+Q 




ERROR FLAG 




HDNG 




MPX FORTRAN' ** 


RECOVERY - PHASE 28 


73 




OPG 




OVFRL 






74 


PECVR 


L^X 


11 


RCOCE 




XR1 = RECOVERY CODE 


75 




RSC 


n 


«• 




TO ROUTINE 


76 




DC 




EO 




NORMAL 


77 




DC 




E] 




WORK AREA EXCEFDFD 


78 




DC 




EO 




*UNUSED 


79 




DC 




EO 




"UNUSED 


8 




or 




E4 




SUBIN TOO LARGr 


81 




DC 




E5 




CORE REQ* EXCESStVF 


82 


■» 












83 


EO 


i_nx 


Ll 


Ml 




NORMAL COMPILATION 


84 




MDX 




OUT 






85 


El 


LOX 


lT 


M2 




WORK &RFA EXCEFDFD 


86 




MHX 




OUT 






87 


E4 


L"X 


lT 


M3 




SUBIN TOU LARGP 


88 




MDX 




OUT 






89 
9O 

91 


E5 


LDX 


Ll 


M4 




CORE PEQ« EXCESSIVE 


OUT 


STX 


1 


OUT1 




STORE MESSAGE »Dr>R» 


92 




STX 


1 


OUT? 






93 




RSI 


L 


LIO 


LIST 


MESSAGE 


94 




DC 




/2005 






95 


OUT1 


DC 




■»-* 






96 




DC 




u 






97 




3*5T 


L 


LIO 


*4IT 


FOR TRANSFER 


93 




DC 




/FOOs 






99 




SSI 


L 


LIO 


LIST 


MESSAGE 


100 




nc 




/209? 






101 


OUT 2 


DC 




*-«• 






102 




nc 




9 






103 




•^Sr 


L 


LIO 


WAIT 


FOR TRANSFER 


104 




oc 




/F0 07 






l'05 




3ST 


L 


LIO 


CLDS! 


I ^0 KII.E 


106 




nc 




/3004 






107 




DC 











108 




DC 











109 




^S] 


L 


LID 






lln 




nr 




/F004 






Ml 




i.n 


L 


KCODF 






11* 




A 


L 


ENirin 






in 




M.ST 


I 


OUTj,/. 


ERRn 


'< OCCURRED 


11^ 




BST 


L 


NORM! 






115 


OUT 3 


nc 




pfiROH 






116 


« 


MFSSAGrh TO OUTPUT 




117 


Ml 


DC 




MH-* 




END OF CUMPlLATlnN 


118 




DC 




/C5CF 




FN 


H9 




DC 




/C'4/f- 




D 



SEITF 



^ 



120 


DC 


121 


DC 


12? 


DC 


123 


DC 


124 


DC 


125 


DC 


126 


DC 


127 M? 


DC 


128 


DC 


129 


DC 


130 


DC 


131 


DC 


j 32 


DC 


133 


DC 


134 


DC 


135 


DC 


136 


DC 


137 


DC 


138 


DC 


139 


DC 


140 M3 


DC 


141 


DC 


1*2 


. DC 


143 


DC 


144 


DC 


145 


DC 


146 


DC 


1*7 


DC 


148 


DC 


149 m 

150 


DC 


oc 


151 


DC 


152 


DC 


153 


DC 


154 


DC 


155 


DC 


156 


DC 


i57 


nc 


158 


nr 


159 


DC 


160 


DC 


161 


nc 


162 


nc 


163 


DC 


1 64 m5 


1 DC 


} 65 


HSS 


166 


p^n 



/CFC6 
/A0C3 
/CFCD 

/D0C9 
/CCC1 

/D 4 C9 

/CFCE 

M3-* 

/D7CF 

ZD2cp 

/C9CE 

/C?AC 

/D 3 D* 
/CFD? 
/C1C7 
/ C5^C 
'C5Dp 

/C3C5 
/C5C4 

/C5C4 

M4-* 

/03d5 

/C2C9 

/CEAO 

/Q4CF 

/CFAO 

/ccd 

/l)2C7 

/C5A0 

M5-* 

/C3CF 

/D2CS 

/AOO? 
/C5DI 
/U5C9 
/Q2C5 
/CDC5 
/CED / + 
/D3Ao 
/C5DM 
/C3CS 

/D3D3 
/C9D^ 

/C5A0 

OVERl.-« + 3?C*2 
R F;C VR 



STORAGc EXCEE 



OF 
C 

DM 
PI 

TI 

ON 

WORKIMP 

WO 

RK 

IN 

R 

S J 

AG 

E 

EX 

CE 

ED 

EO 

SUBIN TOO LARGf 

SU 

Bl 

N 

TO 



I A 

RG 

E 

GORE 3FQUIRFMEMTS £Xc 

CO 

RE 
R 

EO 
III 
RE 

ME 
-IT 

S 

EX 
CE 

ss 

IV 

E 

pHASE-?^ PATCH ApEA 



